home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / aurora2c.zip / KEYCODES.AML < prev    next >
Text File  |  1995-04-07  |  2KB  |  62 lines
  1.  
  2. // ───────────────────────────────────────────────────────────────────
  3. // The Aurora Editor v2.0
  4. // Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
  5. //
  6. // Display keycodes
  7. //
  8. // This macro displays various keycodes for each key pressed
  9. // ───────────────────────────────────────────────────────────────────
  10.  
  11.  
  12.   include bootpath "define.aml"
  13.  
  14.   var keycode
  15.  
  16.   // create main window with titles
  17.   createwindow
  18.   setwinobj
  19.   setframe ">b"
  20.   setcolor  border_color   color white on gray
  21.   setcolor  text_color     color brightgreen on gray
  22.   settitle "Display Keycodes - press <esc> twice to exit"
  23.   setwinctrl '≡'
  24.   sizewindow 6 5 72 20 "ad"
  25.   setborder "1i"
  26.   setshadow 2 1
  27.   writeline " Keycode  Hexcode  Scancode  Ascii  Hex  Char  Keyname"
  28.  
  29.   // create scrollable subwindow
  30.   createwindow
  31.   sizewindow 0 1 0 0 "rw1" '' (getprevwin)
  32.   setcolor  text_color     color black on gray
  33.   showcursor 80 90
  34.  
  35.   repeat
  36.  
  37.     lastcode = keycode                // save last keycode
  38.     keycode = getkey 's'              // get next key with scancode
  39.     asciicode = keycode & 0ffh        // get ascii code from keycode
  40.     keyname = getkeyname keycode      // get keyname from keycode
  41.     if lastcode then
  42.       writeline
  43.     end
  44.  
  45.     writestr
  46.       (pad keycode 8) +               // display keycode
  47.       (pad (base keycode 16) 9) +     // display hexcode
  48.       (pad (keycode shr 8) 10) +      // display scancode
  49.       (pad asciicode 7) +             // display asciicode (if any)
  50.       (pad (base asciicode 16) 5) +   // display asciicode (if any)
  51.       (pad (char asciicode) 6) +      // display key char (if any)
  52.       "  " + keyname                  // display keyname
  53.  
  54.   // exit if <esc> pressed twice or mouse button pressed
  55.   until keycode == <esc> and lastcode == keycode or
  56.         keycode == <button>
  57.  
  58.   // destroy subwindow and main window
  59.   destroywindow
  60.   destroywindow
  61.  
  62.